home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / prog / atari / m2 / cat3src / magic / i / mtfiles.i < prev    next >
Encoding:
Modula Implementation  |  1997-10-26  |  3.5 KB  |  90 lines
  1. (*----------------------------------------------------------------------*
  2.  *                                                                      *
  3.  *  MAGICTOOLS   Modula's  All purpose  GEM  Interface  Cadre  Toolbox  *
  4.  *               ÿ         ÿ            ÿ    ÿ          ÿ               *
  5.  *----------------------------------------------------------------------*
  6.  * Version 3.30  02.02.1992     (C)90/91/92 by Peter Hellinger Software *
  7.  *----------------------------------------------------------------------*
  8.  *            Dieses Modul ist urheberrechtlich geschtzt.              *
  9.  *                                                                      *
  10.  * Die Ver”ffentlichung des Quelltextes oder Teilen daraus, sowie die   *
  11.  * Verbreitung des bersetzten, nicht gelinkten Codes in schriftlicher, *
  12.  * oder maschinenlesbarer Form, insbesondere in Zeitschriften, Mail-    *
  13.  * boxen oder anderen Medien bedarf der ausdrcklichen schriftlichen    *
  14.  * Einverst„ndnisserkl„rung des Autors.                                 *
  15.  *                                                                      *
  16.  * Die Verbreitung des Moduls als Teil eines gelinkten Programms ist    *
  17.  * fr Lizenznehmer ausdrcklich erlaubt!  Der Autor beh„lt sich das    *
  18.  * Recht vor, diese Erlaubnis jederzeit und ohne Angaben von Grnden zu *
  19.  * widerrufen.                                                          *
  20.  *----------------------------------------------------------------------*)
  21.  
  22. IMPLEMENTATION MODULE mtFiles;
  23.  
  24. (*----------------------------------------------------------------------*
  25.  * Int. Vers | Datum    | Name | Žnderung                               *
  26.  *-----------+----------+------+----------------------------------------*
  27.  *  3.00     | 18.01.92 |  Hp  |                                        *
  28.  *-----------+----------+------+----------------------------------------*)
  29.  
  30.  
  31.  
  32. (* IMPLEMENTATION FšR  >>> Megamax-Modula-2 <<< *)
  33. (*                                              *)
  34. (*$R-   Range-Checks                            *)
  35. (*$S-   Stack-Check                             *)
  36. (*                                              *)
  37. (*----------------------------------------------*)
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44. FROM MagicSys   IMPORT  Nil, Null, Bit0, Bit1, Bit2, Bit3, Bit4, Bit5, Bit6,
  45.                         Bit7, Bit8, Bit9, Bit10, Bit11, Bit12, Bit13, Bit14,
  46.                         Bit15, LOC, Byte, ByteSet, sWORD, sINTEGER, sCARDINAL,
  47.                         sBITSET, lINTEGER, lCARDINAL, lWORD, lBITSET,
  48.                         CastToChar, CastToByte, CastToByteset, CastToInt,
  49.                         CastToCard, CastToBitset, CastToWord, CastToLInt,
  50.                         CastToLCard, CastToLBitset, CastToLWord, CastToAddr,
  51.                         TosVersion, Accessory, Basepage, SysHeader, TosDate;
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58. FROM SYSTEM     IMPORT  ADR, ADDRESS;
  59. FROM MagicDOS   IMPORT  Fcreate, Fopen, Fclose, Fread, Fwrite, ReadWrite;
  60.  
  61.  
  62. PROCEDURE CreateFile (REF name: ARRAY OF CHAR; VAR file: FILE);
  63. BEGIN
  64.  file:= Fcreate (name, {});
  65. END CreateFile;
  66.  
  67. PROCEDURE OpenFile (REF name: ARRAY OF CHAR; VAR file: FILE);
  68. BEGIN
  69.  file:= Fopen (name, {ReadWrite});
  70. END OpenFile;
  71.  
  72. PROCEDURE CloseFile (VAR file: FILE);
  73. VAR i: INTEGER;
  74. BEGIN
  75.  i:= Fclose (file);
  76. END CloseFile;
  77.  
  78. PROCEDURE WriteFile (file: FILE; VAR num: lCARDINAL; buffer: ADDRESS);
  79. BEGIN
  80.  Fwrite (file, num, buffer);
  81. END WriteFile;
  82.  
  83. PROCEDURE ReadFile (file: FILE; VAR num: lCARDINAL; buffer: ADDRESS);
  84. BEGIN
  85.  Fread (file, num, buffer);
  86. END ReadFile;
  87.  
  88. END mtFiles.
  89.  
  90.